home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
infor
/
feb93.zip
/
ENT_INP.LSP
< prev
next >
Wrap
Text File
|
1993-02-12
|
1KB
|
52 lines
; ENT_SRC.LSP
;
; THIS ROUTINE RETRIEVES THE SELECTED ENTITIES EXTENDED DATA
; REGISTERED UNDER THE APPLICATION NAME OF
;
; KENT_44240_GIS_INPUT
;
; THE INFORMATION RECORDED UNDER THIS APPLICATION IS INTENDED TO
; PROVIDE TRACKING OF THE ENTITIES' SOURCE DRAWING FOR GIS INPUT.
;
; THE INFORMATION IS RETURNED FOR USE IN GEL/SQL TAGGING OPERATIONS.
;
(defun c:Ent_INP ( )
(setq appname "KENT_44240_GIS_INPUT")
;
; INCLUDE NEXT LINE TO SELECT ENTITY OUTSIDE OF GEO/SQL ROUTINES
(setq tagent (entsel))
;
(setq dinp nil)
(setq Ent_cur (entget (CAR tagent) (list "*")))
(if (setq ent_dsc (assoc -3 ent_cur))
(progn
(if (setq ent_dat (assoc appname (cdr ent_dsc)))
(progn
(if (setq xd_data (assoc 1000 (cdr ent_dat)))
(progn
(SETQ DINP (CDR XD_DATA))
)
(PROGN
(setq DINP "NONE")
)
)
)
)
)
(PROGN
; (princ "\nNo xd_data\n")
(setq DINP "NONE")
)
)
(if DINP (setq x DINP) (setq x "N/A"))
;
; INCLUDE THESE LINES TO DISPLAY RESULTS OUTSIDE OF GEO/SQL ROUTINES
; (PRINC DINP)
; (PRINC "\n")
; (PRINC x)
; (PRINC "\n")
)